home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-05 / pcprl11.zip / SKEL.PLS < prev    next >
Text File  |  1992-02-06  |  341b  |  36 lines

  1. program ;
  2.  
  3. {$N+,E+,F+}
  4.  
  5. uses both, work;
  6.  
  7. procedure start_up;
  8.  
  9. begin
  10.  
  11.   exitsave := exitproc;
  12.   exitproc := @myexit;
  13.  
  14.   master[1] := $00;
  15.   master[2] := $00;
  16.   master[3] := $C0;
  17.   master[4] := $05;
  18.   master[5] := $86;
  19.   master[6] := $24;
  20.  
  21.   init_system;
  22.  
  23. end;
  24.  
  25.  
  26. begin
  27.  
  28.   start_up;
  29.  
  30.  
  31.  
  32.  
  33.   close_system
  34.  
  35. end.
  36.